 |
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 19.02.2013 um 14:32 Uhr (15)
Hallo,ist es möglich mit einem Makro eine Zeichnung mit zwei oder mehr Blättern in einem Durchgang alsdxf (für Zulieferer), pdf (für Zeichnungsaustausch) und dwfx (für die Fertigung) in den selben Ordner,wo die entsprechende Zeichnung liegt, auszugeben.Ich habe schon etwas mit dem VB Tool experimentiert und verschiedene Makros aus dem Forum versucht.Einzelne pdf-Blätter habe ich herausbekommen.Ebenso auch mehrere dxf-Blätter.dwfx wollte nicht so richtig.Grundlegende Programmierkenntnisse habe ich, jedoch b ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 01.10.2013 um 16:02 Uhr (14)
Oh Mannnnnn Manchmal sieht man den Wald vor lauter Bäumen nicht.Ich hatte die Datei nicht gespeichert.Und dann ist natürlich klar, dass er keinen Dateinamen findet.Danke für den Hinweis.
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 01.10.2013 um 12:43 Uhr (1)
Ich hoffe mir kann jemand helfen.Wir haben in der Firma alle Inventorinstallationen auf 2014 umgestellt.Nun wollte ich mein Makro zur Ausgabe der dxf, pdf unf dwfx übertragen.Leider bricht die Ausführung mit Laufzeitfehler 5 in der Zeile......If oapp.ActiveDocumentType kDrawingDocumentObject Then Exit SubEnd IfSet odoc = oapp.ActiveDocumentosource = odoc.FullFileNameodest = Left(osource, Len(osource) - 4)Dim osheet As Inventor.Sheet.....ab.Irgendwie bin ich mit meinem Latein am Ende.Ich hoffe mir kann ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 19.02.2013 um 17:50 Uhr (1)
@noctis79Danke für den Code, funktioniert erst mal ganz gut.Hab es mal getestet.Er wirft mit jedes Blatt einzeln als pdf, dxf und dwfx raus.Wie müsste man den Code anpassen, damit er die einzelnen Blätter in eine dwfx zusammenfasst.Bei dxf ist das vereinzeln ok.Eine weitere Frage ist, wie kann man vermeiden, das er bei einem Blatt immer Blatt1 dahinter schreibt.Nach meinen Erfahrungen muss man doch noch einmal eine IF Schleife einbauen die abfragt, wie viele Blätter es sind und dann entsprechend weiter mac ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
